COMMENT ⊗   VALID 00003 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	LINK NAMES DEFINED.
C00004 00003	PROPERTY-TYPE MACROS.
C00006 ENDMK
C⊗;
;LINK NAMES DEFINED.

	DEFINE LEFT $(NAM,WRD,Z){
	IFIDN<><Z><DEFINE NAM(A,Q)<CAR A,WRD(Q)>>
	IFDIF<><Z><DEFINE NAM(A,Q)<NIP A,WRD(Q)>>
	DEFINE NAM$.(A,Q)<DIP A,WRD(Q)>
}
	DEFINE RIGHT $(NAM,WRD,Z){
	IFIDN<><Z><DEFINE NAM(A,Q)<CDR A,WRD(Q)>>
	IFDIF<><Z><DEFINE NAM(A,Q)<NAP A,WRD(Q)>>
	DEFINE NAM$.(A,Q)<DAP A,WRD(Q)>
}

	LEFT(CW,0)		RIGHT(CCW,0)
	LEFT(ROW,3)↔		RIGHT(COL,3)
	LEFT(DAD,1)↔		RIGHT(SON,1)
	LEFT(TYPE,2)↔		RIGHT(RELOC,2)
	LEFT(ENDO,3)↔		RIGHT(EXO,3)
	LEFT(ALT,4) LEFT(ARC,4)	RIGHT(NCNT,4,N)
	LEFT(NGON,5)↔		RIGHT(PGON,5)
	LEFT(NTIME,6)↔		RIGHT(PTIME,6)

	DEFINE CNTRST(A,Q){NIP A,4(Q)}
	DEFINE CNTRS.(A,Q){DIP A,4(Q)}
;-----------------------------------------------------------------
;PROPERTY-TYPE MACROS.

	DEFINE MARK (Q,BITS){SLACI(BITS)↔IORM(Q)2}
	DEFINE MARKZ(Q,BITS){SLACI(BITS)↔ANDCAM(Q)2}
	DEFINE TEST (Q,BITS){LAC(Q)2↔TLNN(BITS)}
	DEFINE TESTZ(Q,BITS){LAC(Q)2↔TLNE(BITS)}

;PROPERTY-TYPE BITS.

	↓WESBIT←←1B0		;WEST.		VIC ONLY.
	↓SOUBIT←←1B1		;SOUTH.
	↓EASBIT←←1B2		;EAST.
	↓NORBIT←←1B3		;NORTH.

	↓NFUSE←←1B4		;NTIME FUSION.	POLYGONS ONLY.
	↓NFISS←←1B5		;NTIME FISSION.
	↓NEXCT←←1B6		;NTIME EXACT.
	↓PFUSE←←1B7		;PTIME FUSION.
	↓PFISS←←1B8		;PTIME FISSION.
	↓PEXCT←←1B9		;PTIME EXACT.

	↓HOLBIT←←1B10		;HOLE POLYGON.
	↓ARCBIT←←1B11		;ARC VECTOR.

	↓SBIT←←1B12		;SHAPE NODE.
	↓VBIT←←1B13		;VERTEX NODE.
	↓PBIT←←1B14		;POLYGON NODE.
	
	↓LBIT←←1B15		;LEVEL NODE.
	↓IBIT←←1B16		;IMAGE NODE.
	↓FBIT←←1B17		;FILM NODE.

;LINK-RELOCATION BITS OF EACH NODE TYPE.

	  VREL←←330003	;VERTEX.
	PGNREL←←333233	;POLYGON.
	LVLREL←←330000	;LEVEL.
	IMGREL←←330000	;IMAGE.
	FILREL←←011000	;FILM.
;-----------------------------------------------------------------
	↓% ←← 400000
	↓NODSIZ ←← 7
	↓RC←←3